home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Directorty Opus 5 - Magellan 2
/
Opus 5 - Magellan 2.iso
/
Archiv
/
DLGoodies.lha
/
showdvi.dopus5
< prev
next >
Wrap
Text File
|
1996-08-30
|
1KB
|
54 lines
/*
* Load selected 'dvi' files from an DOpus lister into ShowDVI. If
* ShowDVI port is found, files are loaded directly, otherwise ShowDVI
* is invoked first.
*
* V1.0 (12.7.96) by David Lübbren.
*
* Installation:
* Create a file type DVI with the following:
* Compare Name #?.dvi (or something more sophisticated)
*
* Add the following action:
* DoubleClick Arexx DOpus5:ARexx/showdvi {Qp} {f}
*
*/
StackSize = 8192
ShowDVIPort = 'showdvi'
OPTIONS RESULTS
PARSE ARG dopusport file .
IF dopusport ~= "" THEN ADDRESS VALUE dopusport
else do
say "No DOpus running !"
exit
end
file = STRIP(file, 'B', '"')
IF ~SHOW('Ports', ShowDVIPort) THEN DO
PRAGMA('Stack', StackSize)
ADDRESS COMMAND
'run <nil: >nil: TeXMF:bin/pastex/ShowDVI' file
'WaitForPort' ShowDVIPort
ADDRESS
IF rc = 5 THEN DO
dopus request '"Unable to load ''ShowDVI''" Cancel'
EXIT 20
END
END
ELSE DO
ADDRESS VALUE ShowDVIPort
loadnew file
ADDRESS
ADDRESS VALUE ShowDVIPort
'tofront'
'activate'
ADDRESS
END
EXIT 0